home *** CD-ROM | disk | FTP | other *** search
/ Collection of Tools & Utilities / Collection of Tools and Utilities.iso / clipper / nannws22.zip / MP.PRG < prev    next >
Text File  |  1987-12-08  |  450b  |  18 lines

  1. ***************************************************
  2. * mprompt()
  3. * input params: a=y-coord b=x-coord c=prompt string
  4. ***************************************************
  5. function mprompt
  6. private t_off,f_char,mretval,f_len
  7. mretval = .f.
  8. if pcount() = 3
  9.   parameters a,b,c
  10.   t_off = (a * 80) + b
  11.   f_len = len(c)
  12.   f_char = asc(substr(c,1,1))
  13.   @ a,b prompt c
  14.   do LD_SCR with t_off, f_len, f_char
  15.   mretval = .T.
  16. endif
  17. return(mretval)
  18.